home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / parse6.rexx < prev    next >
OS/2 REXX Batch file  |  1978-03-24  |  230b  |  14 lines
  1. /* GET INLINE FILENAME */
  2. call open(place, 'env:RSCRIPT')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. fileC = SUBSTR( wher , 2 , x )
  8. file = SUBSTR( wher , 2 , x )
  9.  
  10. ADDRESS 'AV.REXX'
  11.  
  12. SETVAR PATH5 fileC
  13. SETVAR PATHN wher
  14.